home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_08 / 3floppies next >
Encoding:
Text File  |  1989-04-10  |  534 b   |  19 lines
  1. *BASIC
  2. LOAD "DESKFS:DeskTopMgr2"
  3. 10REM > Desktop - Upgraded to 3 floppies by D.Jackson
  4. 11OSCLI "DESKFS"
  5. 12291IFfloppies%>2 PROCsys_addtoiconbar_left("floppy2","disc3.5",&301A,icon_fgcol,icon_bgcol, icon_width%)
  6. 28600DEFFNselect_floppy2
  7. 28610=0
  8. 28620DEFFNmenu_floppy2
  9. 28630PROCsys_definetextmenu("floppy2","floppy :2","Format")
  10. 28640=0
  11. 28650DEFFNaction_floppy2
  12. 28660=FNfilehandler_open_dir("-adfs-:2","Floppy :2",0)
  13. 28670DEFFNmenuselect_floppy2
  14. 28680CASEitem0% OF
  15. 28690WHEN0: PROCfilehandler_formatfloppy("2")
  16. 28700ENDCASE
  17. 28710=0
  18. RUN
  19.